(compile-internal): Call compilation-set-window-height

before setting window start.

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 8f88bae612e52028df9eecc84e9057afa43788a2..1aef501293785ba22e415dadd0bbf94bd31f2d28 100644 (file)
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -1094,10 +1094,10 @@ Returns the compilation buffer created."
         (set (make-local-variable 'lazy-lock-defer-on-scrolling) t)
        (setq default-directory thisdir
              compilation-directory-stack (list default-directory))
+       (compilation-set-window-height outwin)
        (set-window-start outwin (point-min))
        (or (eq outwin (selected-window))
            (set-window-point outwin (point-min)))
-       (compilation-set-window-height outwin)
        (if compilation-process-setup-function
            (funcall compilation-process-setup-function))
        ;; Start the compilation.